home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getsho1r / credits.frm < prev    next >
Text File  |  1999-09-05  |  3KB  |  89 lines
  1. VERSION 5.00
  2. Begin VB.Form Credits 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Credits"
  5.    ClientHeight    =   3000
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    Icon            =   "Credits.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3000
  14.    ScaleWidth      =   4680
  15.    Begin VB.Image Image2 
  16.       Height          =   600
  17.       Left            =   4095
  18.       Picture         =   "Credits.frx":030A
  19.       Top             =   90
  20.       Width           =   450
  21.    End
  22.    Begin VB.Image Image1 
  23.       Height          =   600
  24.       Left            =   135
  25.       Picture         =   "Credits.frx":0704
  26.       Top             =   90
  27.       Width           =   450
  28.    End
  29.    Begin VB.Label Label2 
  30.       Alignment       =   2  'Center
  31.       BackStyle       =   0  'Transparent
  32.       Caption         =   "Label2"
  33.       BeginProperty Font 
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   9.75
  36.          Charset         =   0
  37.          Weight          =   700
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       ForeColor       =   &H0080FFFF&
  43.       Height          =   2235
  44.       Left            =   45
  45.       TabIndex        =   1
  46.       Top             =   720
  47.       Width           =   4560
  48.    End
  49.    Begin VB.Label Label1 
  50.       Alignment       =   2  'Center
  51.       BackColor       =   &H00000040&
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "Calendar Project"
  54.       BeginProperty Font 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   13.5
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       ForeColor       =   &H00FFFF80&
  64.       Height          =   420
  65.       Left            =   1035
  66.       TabIndex        =   0
  67.       Top             =   90
  68.       Width           =   2580
  69.       WordWrap        =   -1  'True
  70.    End
  71. End
  72. Attribute VB_Name = "Credits"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Private Sub Form_Load()
  78. Label2.Caption = "Programmed by Swertvaegher Stephan earlier this year" & vbCr & vbCr
  79. Label2.Caption = Label2.Caption & "Feel free to use this anywhere, just remember to give me the credits for it..." & vbCr & vbCr
  80. Label2.Caption = Label2.Caption & "QA can always at my e-mail adress:" & vbCr & vbCr
  81. Label2.Caption = Label2.Caption & "stephan.swertvaegher@planetinternet.be"
  82. Credits.Left = Calendar.Left + Calendar.Width
  83. Credits.Top = Calendar.Top
  84. End Sub
  85.  
  86. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  87. End
  88. End Sub
  89.